home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / prowres / shared.dxr / 01506_ÉnÉìÉhÉâäeîN_00.ls < prev    next >
Encoding:
Text File  |  1995-08-07  |  5.9 KB  |  213 lines
  1. global popmsw01, syearstr, nminipage, npopon, lmaxpagelist, memcastnum
  2.  
  3. on mrollovchk01_00
  4.   if the frameLabel = "IN" then
  5.     mrollovchk01_00_in()
  6.   else
  7.     if the frameLabel = "PT" then
  8.       mrollovchk01_00_pt()
  9.     else
  10.       if (6 <= the frame) and (the frame <= 17) then
  11.         mrollovchk01_00_jtod()
  12.       else
  13.       end if
  14.     end if
  15.   end if
  16. end
  17.  
  18. on mrollovchk01_00_in
  19.   if rollOver(2) then
  20.     set the visible of sprite 2 to 0
  21.     mvisiblechk(5, 8, 0)
  22.     mvisiblechk(17, 18, 0)
  23.     mvisiblechk(25, 39, 0)
  24.     set the type of sprite 9 to 0
  25.     cursor(-1)
  26.   else
  27.     set the visible of sprite 2 to 0
  28.     if rollOver(5) or rollOver(6) or rollOver(7) or rollOver(8) then
  29.       mrollovchk04_05to08()
  30.     else
  31.       mvisiblechk(5, 8, 0)
  32.       set the type of sprite 9 to 0
  33.       if rollOver(25) or rollOver(26) or rollOver(27) or rollOver(28) or rollOver(29) or rollOver(30) or rollOver(31) or rollOver(32) or rollOver(33) or rollOver(34) or rollOver(35) or rollOver(36) then
  34.         mrollovchk05_25to39()
  35.       else
  36.         mvisiblechk(25, 36, 0)
  37.         if rollOver(38) or rollOver(39) then
  38.           mrollovchk03_00_in()
  39.         else
  40.           mvisiblechk(38, 39, 0)
  41.           if rollOver(17) or rollOver(18) or rollOver(20) or rollOver(21) then
  42.           else
  43.             cursor(-1)
  44.           end if
  45.         end if
  46.       end if
  47.     end if
  48.   end if
  49. end
  50.  
  51. on mrollovchk03_00_in
  52.   if rollOver(38) and (chars(syearstr, 1, 5) = "G1986") then
  53.     mvisiblechk(38, 39, 0)
  54.     cursor(-1)
  55.   else
  56.     if rollOver(39) and (chars(syearstr, 1, 5) = "G1986") then
  57.       mvisiblechk(38, 39, 0)
  58.       cursor(-1)
  59.     else
  60.       mvisiblerep(38, 39)
  61.       cursor(280)
  62.     end if
  63.   end if
  64. end
  65.  
  66. on mrollovchk04_05to08
  67.   repeat with tmpsp = 5 to 8
  68.     if rollOver(tmpsp) then
  69.       mspriteset(9, 1, 1, 0, the number of cast "News-Bar" + (tmpsp - 5), 111, 0)
  70.       set the visible of sprite tmpsp to 1
  71.       next repeat
  72.     end if
  73.     set the visible of sprite tmpsp to 0
  74.   end repeat
  75.   cursor(280)
  76. end
  77.  
  78. on mrollovchk05_25to39
  79.   mvisiblerep(25, 36)
  80.   mvisiblechk(38, 39, 0)
  81.   cursor(280)
  82. end
  83.  
  84. on mrollovchk01_00_pt
  85.   set the castNum of sprite 24 to memcastnum
  86.   if rollOver(2) then
  87.     set the visible of sprite 2 to 1
  88.     mvisiblechk(5, 8, 0)
  89.     set the type of sprite 9 to 0
  90.     cursor(280)
  91.   else
  92.     set the visible of sprite 2 to 0
  93.     if rollOver(5) or rollOver(6) or rollOver(7) or rollOver(8) then
  94.       mrollovchk04_05to08()
  95.     else
  96.       mvisiblechk(5, 8, 0)
  97.       set the type of sprite 9 to 0
  98.       if rollOver(22) then
  99.         cursor(280)
  100.       else
  101.         if rollOver(25) or rollOver(26) or rollOver(27) or rollOver(28) or rollOver(29) or rollOver(30) or rollOver(31) or rollOver(32) or rollOver(33) or rollOver(34) or rollOver(35) or rollOver(36) then
  102.           mrollovchk05_25to39()
  103.         else
  104.           mvisiblechk(25, 36, 0)
  105.           if rollOver(38) or rollOver(39) then
  106.             mrollovchk03_00_in()
  107.           else
  108.             mvisiblechk(38, 39, 0)
  109.             if rollOver(17) or rollOver(18) or rollOver(20) or rollOver(21) then
  110.             else
  111.               cursor(-1)
  112.             end if
  113.           end if
  114.         end if
  115.       end if
  116.     end if
  117.   end if
  118. end
  119.  
  120. on mrollovchk01_00_jtod
  121.   if rollOver(2) then
  122.     set the visible of sprite 2 to 1
  123.     mvisiblechk(5, 8, 0)
  124.     mvisiblechk(17, 18, 0)
  125.     mvisiblechk(20, 21, 0)
  126.     set the type of sprite 9 to 0
  127.     cursor(280)
  128.   else
  129.     set the visible of sprite 2 to 0
  130.     if rollOver(5) or rollOver(6) or rollOver(7) or rollOver(8) then
  131.       mrollovchk04_05to08()
  132.       mvisiblechk(17, 18, 0)
  133.       mvisiblechk(20, 21, 0)
  134.     else
  135.       mvisiblechk(5, 8, 0)
  136.       set the type of sprite 9 to 0
  137.       if rollOver(25) or rollOver(26) or rollOver(27) or rollOver(28) or rollOver(29) or rollOver(30) or rollOver(31) or rollOver(32) or rollOver(33) or rollOver(34) or rollOver(35) or rollOver(36) then
  138.         mvisiblerep(25, 36)
  139.         mvisiblechk(17, 18, 0)
  140.         mvisiblechk(20, 21, 0)
  141.         mvisiblechk(38, 39, 0)
  142.         cursor(280)
  143.       else
  144.         mvisiblechk(25, 36, 0)
  145.         if rollOver(38) or rollOver(39) then
  146.           mrollovchk03_00_in()
  147.           mvisiblechk(17, 18, 0)
  148.           mvisiblechk(20, 21, 0)
  149.         else
  150.           mvisiblechk(38, 39, 0)
  151.           if rollOver(17) or rollOver(18) or rollOver(20) or rollOver(21) then
  152.             mrollovchk02_00_jtod()
  153.           else
  154.             mvisiblechk(17, 18, 0)
  155.             mvisiblechk(20, 21, 0)
  156.             cursor(-1)
  157.           end if
  158.         end if
  159.       end if
  160.     end if
  161.   end if
  162. end
  163.  
  164. on mrollovchk02_00_jtod
  165.   if rollOver(20) and (the frameLabel = "JAN") then
  166.     if the name of cast (the castNum of sprite 19 - 1) = "PG-STT" then
  167.       mvisiblechk(20, 21, 0)
  168.       cursor(-1)
  169.     else
  170.       set the visible of sprite 20 to 1
  171.       set the visible of sprite 21 to 0
  172.       cursor(280)
  173.     end if
  174.   else
  175.     if rollOver(21) and (the frameLabel = "DEC") then
  176.       if the name of cast (the castNum of sprite 19 + 1) = "PG-END" then
  177.         mvisiblechk(20, 21, 0)
  178.         cursor(-1)
  179.       else
  180.         set the visible of sprite 20 to 0
  181.         set the visible of sprite 21 to 1
  182.         cursor(280)
  183.       end if
  184.     else
  185.       if rollOver(17) and (the frameLabel = "JAN") then
  186.         if (the name of cast (the castNum of sprite 16 - 1) = "PG-STT") and (chars(syearstr, 1, 5) = "G1986") then
  187.           mvisiblechk(17, 18, 0)
  188.           cursor(-1)
  189.         else
  190.           set the visible of sprite 17 to 1
  191.           set the visible of sprite 18 to 0
  192.           cursor(280)
  193.         end if
  194.       else
  195.         if rollOver(18) and (the frameLabel = "DEC") then
  196.           if (the name of cast (the castNum of sprite 16 + 1) = "PG-END") and (chars(syearstr, 1, 5) = "G1986") then
  197.             mvisiblechk(17, 18, 0)
  198.             cursor(-1)
  199.           else
  200.             set the visible of sprite 17 to 0
  201.             set the visible of sprite 18 to 1
  202.             cursor(280)
  203.           end if
  204.         else
  205.           mvisiblerep(17, 18)
  206.           mvisiblerep(20, 21)
  207.           cursor(280)
  208.         end if
  209.       end if
  210.     end if
  211.   end if
  212. end
  213.